/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / sn_logfig32.lha / MBNScan

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 2a 20 24 56 45 52 3a | 20 53 4e 20 4d 65 73 73 |/* $VER:| SN Mess|
|00000010| 61 67 65 42 61 73 65 20 | 4e 65 77 73 53 63 61 6e |ageBase |NewsScan|
|00000020| 20 28 66 6f 72 20 4c 6f | 67 46 69 67 20 76 33 2e | (for Lo|gFig v3.|
|00000030| 32 29 20 28 30 32 2f 30 | 36 2f 39 35 29 20 28 53 |2) (02/0|6/95) (S|
|00000040| 4e 2f 41 48 49 20 39 31 | 30 2e 33 32 36 2e 33 38 |N/AHI 91|0.326.38|
|00000050| 30 34 20 43 2d 4c 69 6e | 6b 21 20 39 31 31 3a 36 |04 C-Lin|k! 911:6|
|00000060| 33 38 30 2f 37 20 26 20 | 46 69 64 6f 20 31 3a 33 |380/7 & |Fido 1:3|
|00000070| 36 31 34 2f 31 31 38 20 | 32 38 2e 38 6b 29 00 2a |614/118 |28.8k).*|
|00000080| 2f 6f 70 74 69 6f 6e 73 | 20 72 65 73 75 6c 74 73 |/options| results|
|00000090| 3b 67 65 74 75 73 65 72 | 32 33 3b 70 6f 72 74 3d |;getuser|23;port=|
|000000a0| 72 65 73 75 6c 74 3b 73 | 73 3d 73 65 6e 64 73 74 |result;s|s=sendst|
|000000b0| 72 69 6e 67 3b 6f 6d 72 | 3d 22 52 41 4d 3a 4c 46 |ring;omr|="RAM:LF|
|000000c0| 2d 4f 4d 52 2e 22 70 6f | 72 74 0a 0a 69 66 20 65 |-OMR."po|rt..if e|
|000000d0| 78 69 73 74 73 28 6f 6d | 72 29 20 74 68 65 6e 20 |xists(om|r) then |
|000000e0| 64 6f 3b 69 66 20 7e 65 | 78 69 73 74 73 28 6f 6d |do;if ~e|xists(om|
|000000f0| 72 22 21 22 29 20 74 68 | 65 6e 20 64 6f 3b 63 61 |r"!") th|en do;ca|
|00000100| 6c 6c 20 6f 70 65 6e 20 | 74 74 2c 28 6f 6d 72 22 |ll open |tt,(omr"|
|00000110| 21 22 29 2c 22 57 22 3b | 63 61 6c 6c 20 63 6c 6f |!"),"W";|call clo|
|00000120| 73 65 20 74 74 3b 61 64 | 64 6b 65 79 73 22 59 60 |se tt;ad|dkeys"Y`|
|00000130| 60 60 22 3b 65 6e 64 3b | 65 78 69 74 3b 65 6e 64 |``";end;|exit;end|
|00000140| 0a 69 66 20 65 78 69 73 | 74 73 28 22 52 41 4d 3a |.if exis|ts("RAM:|
|00000150| 4f 4d 52 2d 53 61 76 65 | 32 2e 22 70 6f 72 74 29 |OMR-Save|2."port)|
|00000160| 20 74 68 65 6e 20 65 78 | 69 74 0a 69 66 20 7e 65 | then ex|it.if ~e|
|00000170| 78 69 73 74 73 28 22 52 | 41 4d 3a 4d 42 4e 53 30 |xists("R|AM:MBNS0|
|00000180| 2e 22 70 6f 72 74 29 20 | 74 68 65 6e 20 64 6f 0a |."port) |then do.|
|00000190| 20 20 63 61 6c 6c 20 6f | 70 65 6e 20 66 69 6c 65 |  call o|pen file|
|000001a0| 2c 28 22 52 41 4d 3a 4d | 42 4e 53 30 2e 22 70 6f |,("RAM:M|BNS0."po|
|000001b0| 72 74 29 2c 22 57 22 3b | 63 61 6c 6c 20 63 6c 6f |rt),"W";|call clo|
|000001c0| 73 65 20 66 69 6c 65 0a | 20 20 69 66 20 65 78 69 |se file.|  if exi|
|000001d0| 73 74 73 28 22 52 41 4d | 3a 4f 4d 52 2d 53 61 76 |sts("RAM|:OMR-Sav|
|000001e0| 65 2e 22 70 6f 72 74 29 | 20 74 68 65 6e 20 64 6f |e."port)| then do|
|000001f0| 3b 0a 20 20 20 20 63 61 | 6c 6c 20 6f 70 65 6e 20 |;.    ca|ll open |
|00000200| 66 69 6c 65 2c 28 22 52 | 41 4d 3a 4f 4d 52 2d 53 |file,("R|AM:OMR-S|
|00000210| 61 76 65 32 2e 22 70 6f | 72 74 29 2c 22 57 22 3b |ave2."po|rt),"W";|
|00000220| 63 61 6c 6c 20 63 6c 6f | 73 65 20 66 69 6c 65 3b |call clo|se file;|
|00000230| 0a 20 20 20 20 61 64 64 | 6b 65 79 73 22 59 60 60 |.    add|keys"Y``|
|00000240| 60 22 3b 65 78 69 74 3b | 0a 20 20 65 6e 64 0a 20 |`";exit;|.  end. |
|00000250| 20 69 66 20 7e 65 78 69 | 73 74 73 28 22 52 41 4d | if ~exi|sts("RAM|
|00000260| 3a 4f 4d 52 2d 53 61 76 | 65 32 2e 22 70 6f 72 74 |:OMR-Sav|e2."port|
|00000270| 29 20 74 68 65 6e 20 61 | 64 64 6b 65 79 73 22 4c |) then a|ddkeys"L|
|00000280| 60 22 0a 20 20 65 6c 73 | 65 20 61 64 64 72 65 73 |`".  els|e addres|
|00000290| 73 20 63 6f 6d 6d 61 6e | 64 20 22 43 3a 44 65 6c |s comman|d "C:Del|
|000002a0| 65 74 65 20 52 41 4d 3a | 4f 4d 52 2d 53 61 76 65 |ete RAM:|OMR-Save|
|000002b0| 32 2e 22 70 6f 72 74 22 | 20 46 4f 52 43 45 20 51 |2."port"| FORCE Q|
|000002c0| 55 49 45 54 22 0a 20 20 | 65 78 69 74 0a 65 6e 64 |UIET".  |exit.end|
|000002d0| 0a 69 66 20 65 78 69 73 | 74 73 28 22 52 41 4d 3a |.if exis|ts("RAM:|
|000002e0| 4d 42 4e 53 31 2e 22 70 | 6f 72 74 29 20 74 68 65 |MBNS1."p|ort) the|
|000002f0| 6e 20 64 6f 0a 20 20 69 | 66 20 65 78 69 73 74 73 |n do.  i|f exists|
|00000300| 28 22 52 41 4d 3a 4d 42 | 4e 53 32 2e 22 70 6f 72 |("RAM:MB|NS2."por|
|00000310| 74 29 20 74 68 65 6e 20 | 64 6f 0a 20 20 20 20 61 |t) then |do.    a|
|00000320| 64 64 6b 65 79 73 22 60 | 22 3b 0a 20 20 20 20 61 |ddkeys"`|";.    a|
|00000330| 64 64 72 65 73 73 20 63 | 6f 6d 6d 61 6e 64 20 22 |ddress c|ommand "|
|00000340| 43 3a 44 65 6c 65 74 65 | 20 52 41 4d 3a 4d 42 4e |C:Delete| RAM:MBN|
|00000350| 53 23 3f 2e 22 70 6f 72 | 74 0a 20 20 20 20 3b 65 |S#?."por|t.    ;e|
|00000360| 78 69 74 0a 20 20 65 6e | 64 0a 20 20 61 64 64 6b |xit.  en|d.  addk|
|00000370| 65 79 73 22 43 60 22 3b | 63 61 6c 6c 20 6f 70 65 |eys"C`";|call ope|
|00000380| 6e 20 66 69 6c 65 2c 28 | 22 52 41 4d 3a 4d 42 4e |n file,(|"RAM:MBN|
|00000390| 53 31 2e 22 70 6f 72 74 | 29 2c 22 57 22 3b 63 61 |S1."port|),"W";ca|
|000003a0| 6c 6c 20 63 6c 6f 73 65 | 20 66 69 6c 65 0a 20 20 |ll close| file.  |
|000003b0| 63 61 6c 6c 20 6f 70 65 | 6e 20 66 69 6c 65 2c 28 |call ope|n file,(|
|000003c0| 22 52 41 4d 3a 4d 42 4e | 53 32 2e 22 70 6f 72 74 |"RAM:MBN|S2."port|
|000003d0| 29 2c 22 57 22 3b 63 61 | 6c 6c 20 63 6c 6f 73 65 |),"W";ca|ll close|
|000003e0| 20 66 69 6c 65 3b 65 78 | 69 74 0a 65 6e 64 0a 73 | file;ex|it.end.s|
|000003f0| 73 22 19 6e 31 19 63 66 | 5b 19 63 39 52 19 63 66 |s".n1.cf|[.c9R.cf|
|00000400| 5d 65 61 64 20 19 63 63 | 6e 65 77 20 6d 65 73 73 |]ead .cc|new mess|
|00000410| 61 67 65 73 19 63 66 2c | 20 19 63 66 5b 19 63 39 |ages.cf,| .cf[.c9|
|00000420| 59 19 63 66 5d 61 6e 6b | 20 74 6f 20 61 20 19 63 |Y.cf]ank| to a .c|
|00000430| 61 2e 51 57 4b 20 19 63 | 66 66 69 6c 65 19 63 66 |a.QWK .c|ffile.cf|
|00000440| 2c 20 6f 72 20 5b 19 63 | 39 53 19 63 66 5d 61 76 |, or [.c|9S.cf]av|
|00000450| 65 2f 5b 19 63 39 51 19 | 63 66 5d 75 69 74 3f 20 |e/[.c9Q.|cf]uit? |
|00000460| 5b 19 63 39 52 65 61 64 | 19 63 66 5d 20 22 3b 67 |[.c9Read|.cf] ";g|
|00000470| 65 74 63 68 61 72 3b 61 | 3d 69 6e 64 65 78 28 22 |etchar;a|=index("|
|00000480| 52 59 53 51 22 2c 72 65 | 73 75 6c 74 29 0a 69 66 |RYSQ",re|sult).if|
|00000490| 20 61 3d 30 20 7c 20 61 | 3d 31 20 74 68 65 6e 20 | a=0 | a|=1 then |
|000004a0| 64 6f 3b 73 73 22 52 65 | 61 64 19 63 30 22 3b 63 |do;ss"Re|ad.c0";c|
|000004b0| 61 6c 6c 20 6f 70 65 6e | 20 66 69 6c 65 2c 28 22 |all open| file,("|
|000004c0| 52 41 4d 3a 4d 42 4e 53 | 31 2e 22 70 6f 72 74 29 |RAM:MBNS|1."port)|
|000004d0| 2c 22 57 22 3b 63 61 6c | 6c 20 63 6c 6f 73 65 20 |,"W";cal|l close |
|000004e0| 66 69 6c 65 3b 61 64 64 | 6b 65 79 73 22 52 60 22 |file;add|keys"R`"|
|000004f0| 3b 65 78 69 74 3b 65 6e | 64 0a 69 66 20 61 3d 32 |;exit;en|d.if a=2|
|00000500| 20 74 68 65 6e 20 64 6f | 3b 73 73 22 59 61 6e 6b | then do|;ss"Yank|
|00000510| 19 63 30 22 3b 63 61 6c | 6c 20 6f 70 65 6e 20 66 |.c0";cal|l open f|
|00000520| 69 6c 65 2c 28 22 52 41 | 4d 3a 4d 42 4e 53 31 2e |ile,("RA|M:MBNS1.|
|00000530| 22 70 6f 72 74 29 2c 22 | 57 22 3b 63 61 6c 6c 20 |"port),"|W";call |
|00000540| 63 6c 6f 73 65 20 66 69 | 6c 65 3b 61 64 64 6b 65 |close fi|le;addke|
|00000550| 79 73 22 59 60 22 3b 65 | 78 69 74 3b 65 6e 64 0a |ys"Y`";e|xit;end.|
|00000560| 69 66 20 61 3d 33 20 7c | 20 61 3d 34 20 74 68 65 |if a=3 || a=4 the|
|00000570| 6e 20 64 6f 3b 73 73 22 | 53 61 76 65 2f 51 75 69 |n do;ss"|Save/Qui|
|00000580| 74 19 63 30 22 3b 61 64 | 64 6b 65 79 73 22 60 22 |t.c0";ad|dkeys"`"|
|00000590| 3b 65 78 69 74 3b 65 6e | 64 0a                   |;exit;en|d.      |
+--------+-------------------------+-------------------------+--------+--------+